home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / pen_win / pen2ctl / penmain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-10-11  |  5.7 KB  |  174 lines
  1. VERSION 2.00
  2. Begin Form MainFrm 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Sample Pen Program"
  6.    ClientHeight    =   5400
  7.    ClientLeft      =   1665
  8.    ClientTop       =   750
  9.    ClientWidth     =   6255
  10.    Height          =   5805
  11.    Icon            =   PENMAIN.FRX:0000
  12.    Left            =   1605
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    ScaleHeight     =   5400
  17.    ScaleWidth      =   6255
  18.    Top             =   405
  19.    Width           =   6375
  20.    Begin SSPanel Panel3D2 
  21.       Alignment       =   6  'Center - TOP
  22.       BackColor       =   &H00C0C0C0&
  23.       BevelInner      =   1  'Inset
  24.       BevelWidth      =   2
  25.       BorderWidth     =   2
  26.       Caption         =   "Press Button to Activate Demonstration"
  27.       Font3D          =   1  'Raised w/light shading
  28.       FontBold        =   -1  'True
  29.       FontItalic      =   0   'False
  30.       FontName        =   "MS Sans Serif"
  31.       FontSize        =   12
  32.       FontStrikethru  =   0   'False
  33.       FontUnderline   =   0   'False
  34.       ForeColor       =   &H00000000&
  35.       Height          =   4335
  36.       Left            =   0
  37.       RoundedCorners  =   0   'False
  38.       TabIndex        =   7
  39.       Top             =   1080
  40.       Width           =   6255
  41.       Begin SSCommand SelectDemo 
  42.          BevelWidth      =   4
  43.          Caption         =   "BEdit Word List Sample"
  44.          Font3D          =   0  'None
  45.          ForeColor       =   &H00000000&
  46.          Height          =   495
  47.          Index           =   4
  48.          Left            =   600
  49.          RoundedCorners  =   0   'False
  50.          TabIndex        =   8
  51.          Top             =   3000
  52.          Width           =   5055
  53.       End
  54.       Begin SSCommand SelectDemo 
  55.          BevelWidth      =   4
  56.          Caption         =   "Transfer Ink Data"
  57.          Font3D          =   0  'None
  58.          ForeColor       =   &H00000000&
  59.          Height          =   495
  60.          Index           =   3
  61.          Left            =   600
  62.          RoundedCorners  =   0   'False
  63.          TabIndex        =   3
  64.          Top             =   2400
  65.          Width           =   5055
  66.       End
  67.       Begin SSCommand SelectDemo 
  68.          BevelWidth      =   4
  69.          Caption         =   "Ink Edit Control"
  70.          Font3D          =   0  'None
  71.          ForeColor       =   &H00000000&
  72.          Height          =   495
  73.          Index           =   2
  74.          Left            =   600
  75.          RoundedCorners  =   0   'False
  76.          TabIndex        =   2
  77.          Top             =   1800
  78.          Width           =   5055
  79.       End
  80.       Begin SSCommand SelectDemo 
  81.          BevelWidth      =   4
  82.          Caption         =   "Exit Pen Sample Programs"
  83.          Font3D          =   0  'None
  84.          ForeColor       =   &H00000000&
  85.          Height          =   495
  86.          Index           =   5
  87.          Left            =   360
  88.          RoundedCorners  =   0   'False
  89.          TabIndex        =   4
  90.          Top             =   3600
  91.          Width           =   5535
  92.       End
  93.       Begin SSCommand SelectDemo 
  94.          BevelWidth      =   4
  95.          Caption         =   "Save and Restore Ink"
  96.          Font3D          =   0  'None
  97.          ForeColor       =   &H00000000&
  98.          Height          =   495
  99.          Index           =   1
  100.          Left            =   600
  101.          RoundedCorners  =   0   'False
  102.          TabIndex        =   1
  103.          Top             =   1200
  104.          Width           =   5055
  105.       End
  106.       Begin SSCommand SelectDemo 
  107.          BevelWidth      =   4
  108.          Caption         =   "DelayRecog and OnTap Properties"
  109.          Font3D          =   0  'None
  110.          ForeColor       =   &H00000000&
  111.          Height          =   495
  112.          Index           =   0
  113.          Left            =   600
  114.          RoundedCorners  =   0   'False
  115.          TabIndex        =   0
  116.          Top             =   600
  117.          Width           =   5055
  118.       End
  119.    End
  120.    Begin SSPanel Panel3D1 
  121.       Alignment       =   6  'Center - TOP
  122.       BackColor       =   &H00C0C0C0&
  123.       BevelInner      =   1  'Inset
  124.       BevelWidth      =   2
  125.       BorderWidth     =   2
  126.       Caption         =   "Sample Pen Program"
  127.       Font3D          =   1  'Raised w/light shading
  128.       FontBold        =   -1  'True
  129.       FontItalic      =   0   'False
  130.       FontName        =   "MS Sans Serif"
  131.       FontSize        =   18
  132.       FontStrikethru  =   0   'False
  133.       FontUnderline   =   0   'False
  134.       ForeColor       =   &H00000000&
  135.       Height          =   1095
  136.       Left            =   0
  137.       RoundedCorners  =   0   'False
  138.       TabIndex        =   5
  139.       Top             =   0
  140.       Width           =   6255
  141.       Begin Label Label1 
  142.          Alignment       =   2  'Center
  143.          AutoSize        =   -1  'True
  144.          BackColor       =   &H00C0C0C0&
  145.          Caption         =   "Copyright (c) 1992-95, Microsoft Corp.  All rights reserved."
  146.          ForeColor       =   &H00000000&
  147.          Height          =   225
  148.          Index           =   1
  149.          Left            =   480
  150.          TabIndex        =   6
  151.          Top             =   600
  152.          Width           =   5175
  153.       End
  154.    End
  155. Sub SelectDemo_Click (Index As Integer)
  156.     Screen.MousePointer = 11
  157.     Select Case Index
  158.         Case 0
  159.             DelayFrm.Show
  160.         Case 1
  161.             InkFrm.Show
  162.         Case 2
  163.             IEditFrm.Show
  164.         Case 3
  165.             TransFrm.Show
  166.         Case 4
  167.             WordListFrm.Show
  168.         Case 5
  169.             End
  170.     End Select
  171.     MainFrm.Hide
  172.     Screen.MousePointer = 0
  173. End Sub
  174.